home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr2___i9.p2s < prev    next >
Encoding:
Text File  |  1994-07-13  |  5.0 KB  |  208 lines
  1. ###########################################################################
  2. #
  3. # file name: VR2____1.P2S
  4. # description:  0pen video in, record, play and close
  5. #               Move the monitor window before recording.
  6. # settings: 
  7. #           duration 66665
  8. #           compression: ulti
  9. #           video quality: 5000
  10. #           audio: 44100 samples per sec,  8 bits, 2 channel, volume 100
  11. #           video source: 640 x 480
  12. #           video destination: 320 x 240
  13. #
  14. ###########################################################################
  15.  
  16. ############################################
  17. #
  18. #   open Video In
  19. #
  20. ############################################
  21.  
  22. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  23. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  24. @WAIT_NOTIFY 1 45000
  25.  
  26. ############################################
  27. #
  28. #   set video monitor on/off
  29. #
  30. ############################################
  31.  
  32. SET VID MONITOR ON NOTIFY
  33. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  34. @WAIT_NOTIFY 2 30000
  35.  
  36. status VID monitor wait
  37. =ON
  38.  
  39. ############################################
  40. #
  41. #   enable audio monitor
  42. #
  43. ############################################
  44.  
  45. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  46.  
  47. SET AMP MONITOR ON WAIT
  48.  
  49. ############################################
  50. #
  51. #   load a new file
  52. #
  53. ############################################
  54.  
  55. LOAD VID NEW NOTIFY
  56. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #3
  57. @WAIT_NOTIFY 3 30000
  58.  
  59. ############################################
  60. #
  61. #   set time format to milliseconds
  62. #
  63. ############################################
  64.  
  65. SET VID TIME FORMAT MILLISECONDS NOTIFY
  66. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  67. @WAIT_NOTIFY 4 30000
  68.  
  69.  
  70.  
  71. ############################################
  72. #
  73. #   set compression type:
  74. #     - DIB:  raw = uncompressed
  75. #     - ULTI: ultimotion
  76. #     - RT21: indeo
  77. #
  78. ############################################
  79.  
  80. SET VID VIDEO COMPRESSION ULTI NOTIFY
  81. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #6
  82. @WAIT_NOTIFY 6 30000
  83.  
  84.  
  85. ############################################
  86. #
  87. #   set video quality (0-10000)
  88. #
  89. ############################################
  90.  
  91. SET VID VIDEO QUALITY 5000 NOTIFY
  92. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #7
  93. @WAIT_NOTIFY 7 30000
  94.  
  95.  
  96. set VID video record frame duration 66665 notify
  97. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #11
  98. @WAIT_NOTIFY 11 60000
  99. #
  100. #############################################################################
  101. # check the status of video record frame duration                           #
  102. #############################################################################
  103. #
  104. status vid video record frame duration wait
  105. =66665
  106.  
  107. ############################################
  108. #
  109. #   set audio parameters:
  110. #     - SAMPLESPERSEC: 11025,22050,44100
  111. #     - CHANNEL: 1,2
  112. #     - BITSPERSAMPLE: 8,16
  113. #     - VOLUME: 0-100
  114. #
  115. ############################################
  116.  
  117. SET VID SAMPLESPERSEC 44100 NOTIFY
  118. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #8
  119. @WAIT_NOTIFY 8 30000
  120.  
  121. status VID samplespersec wait
  122. =44100
  123.  
  124. SET VID CHANNELS 2 NOTIFY
  125. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #10
  126. @WAIT_NOTIFY 10 30000
  127.  
  128. SET VID BITSPERSAMPLE 8 NOTIFY
  129. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #12
  130. @WAIT_NOTIFY 12 30000
  131.  
  132. SET VID AUDIO VOLUME 100 NOTIFY
  133. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #14
  134. @WAIT_NOTIFY 14 30000
  135.  
  136. ############################################
  137. #
  138. #   set window size
  139. #
  140. ############################################
  141.  
  142. PUT VID RECORD SOURCE AT 0 100 640 380 NOTIFY
  143. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #16
  144. @WAIT_NOTIFY 16 30000
  145.  
  146. PUT VID RECORD DESTINATION AT 0 0 320 240 NOTIFY
  147. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #18
  148. @WAIT_NOTIFY 18 30000
  149.  
  150. ############################################
  151. #
  152. #   message to user: play source
  153. #
  154. ############################################
  155.  
  156. @BREAK Make sure that the source is already playing
  157.  
  158. ############################################
  159. #
  160. #   move monitor window then record for 10 seconds
  161. #
  162. ############################################
  163.  
  164. put VID monitor move at 100 50 0 0 wait
  165. @pause 5000
  166.  
  167. put VID monitor move at 200 0 100 50 wait
  168. @pause 5000
  169.  
  170. RECORD VID TO 20000 NOTIFY
  171. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #20
  172. @WAIT_NOTIFY 20 50000
  173.  
  174. ############################################
  175. #
  176. #   play and save the file
  177. #
  178. ############################################
  179.  
  180. PLAY VID FROM 0 NOTIFY
  181. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #22
  182. @WAIT_NOTIFY 22 50000
  183.  
  184. save VID delete.avi notify
  185. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #23
  186. @WAIT_NOTIFY 23 50000
  187.  
  188. stop VID wait
  189.  
  190. load VID delete.avi notify
  191. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #25
  192. @WAIT_NOTIFY 25 50000
  193.  
  194. PLAY VID FROM 0 NOTIFY
  195. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #27
  196. @WAIT_NOTIFY 27 50000
  197.  
  198.  
  199. ############################################
  200. #
  201. #   close video in
  202. #
  203. ############################################
  204. CLOSE VID NOTIFY
  205. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #29
  206. @WAIT_NOTIFY 29 30000
  207.  
  208.